﻿Imports System.Data
Imports Comunes
Imports System.Xml

Partial Class AppFront_Administracion_ConeccionesAJAX_AdministracionEmpresasAJAX
    Inherits cls_sesion
#Region "VARIABLES"
    Dim v_obj_empresa As New cls_empresas
#End Region
#Region "EVENTOS DE LA PAGINA"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If USUS_USUARIO.ToString <> "" Then
                Select Case Request.Form("accion").ToString
                    Case "ListarEmpresas"
                        v_obj_empresa.numPagina = Request("start")
                        v_obj_empresa.cantPagina = Request("limit")
                        v_obj_empresa.EMEM_RUT = Request("EMEM_RUT")
                        v_obj_empresa.EMEM_RAZON_SOCIAL = Request("EMEM_RAZON_SOCIAL")
                        v_str_respuestaJson = v_obj_empresa.ListarEmpresas
                    Case "ListarEstados"
                        v_str_respuestaJson = v_obj_empresa.ListarEstados()
                    Case "ListarComunas"
                        v_str_respuestaJson = v_obj_empresa.ListarComunas()
                    Case "obtenerDatosEmpresa"
                        v_obj_empresa.EMEM_RUT = Request("EMEM_RUT")
                        v_str_respuestaJson = v_obj_empresa.buscarDatosEmpresa()
                    Case "grabarDatosEmpresa"
                        Dim v_obj_codificadorXML As New clsJsonSR.clsJsonSR
                        Dim v_str_jSonDatosFormulario As String = Request("JsonFormulario")
                        Dim v_xml_xmlDatosFormulario As XmlDocument
                        v_xml_xmlDatosFormulario = v_obj_codificadorXML.convertJsonToXML(v_str_jSonDatosFormulario)
                        v_obj_empresa.XML_DATOS_FORM = v_xml_xmlDatosFormulario.InnerXml
                        v_str_respuestaJson = v_obj_empresa.grabarDatosEmpresa()
                End Select
                Response.Write(v_str_respuestaJson)
            Else
                Response.Write("nosession")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region
End Class
